home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / nwlib15.zip / DEMO.ZIP / TRUSTEE.PAS < prev    next >
Pascal/Delphi Source File  |  1996-03-03  |  2KB  |  105 lines
  1. unit Trustee;
  2.  
  3. interface
  4.  
  5. uses
  6.     WinTypes,
  7.     WinProcs,
  8.     Classes,
  9.     Graphics,
  10.     Forms,
  11.     Controls,
  12.     Buttons,
  13.     StdCtrls,
  14.     ExtCtrls,
  15.     NWTools,
  16.     NwProp,
  17.     Nwlib,
  18.     NWServer;
  19.  
  20. type
  21.   TwinTrustee = class(TForm)
  22.     bSave: TBitBtn;
  23.     bCancel: TBitBtn;
  24.     Bevel1: TBevel;
  25.     serverName: TEdit;
  26.     volName: TEdit;
  27.     pathName: TEdit;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Label3: TLabel;
  31.     rightsBox: TGroupBox;
  32.     lRead: TCheckBox;
  33.     lWrite: TCheckBox;
  34.     lCreate: TCheckBox;
  35.     lModify: TCheckBox;
  36.     lFileScan: TCheckBox;
  37.     lAccessControl: TCheckBox;
  38.     lErase: TCheckBox;
  39.     NWProp1: TNWProp;
  40.     NWLib1: TNWLib;
  41.     lSupervisor: TCheckBox;
  42.     NWTools1: TNWTools;
  43.     NWServer1: TNWServer;
  44.     procedure bSaveClick(Sender: TObject);
  45.     procedure FormCreate(Sender: TObject);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.     execute,
  51.     creating   : boolean ;
  52.     oldServer,
  53.     oldVolName,
  54.     oldPath,
  55.     cUserID,
  56.     cPath      : string ;
  57.     nServer    : TNWConnHandle ;
  58.   end;
  59.  
  60. var
  61.   winTrustee: TwinTrustee;
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66.  
  67. procedure TwinTrustee.FormCreate(Sender: TObject);
  68.   begin
  69.     creating := false ;
  70.     execute  := false ;
  71.   end;
  72.  
  73. procedure TwinTrustee.bSaveClick(Sender: TObject);
  74.   var
  75.     rightsList : TNWRights ;
  76.   begin
  77.     with rightsList do begin
  78.       supervisor    := ( lSupervisor.checked ) ;
  79.       read          := ( lRead.checked )       ;
  80.       open          := ( true )                ; {needed only for netware 2.x support}
  81.       write         := ( lWrite.checked )      ;
  82.       create        := ( lCreate.checked )     ;
  83.       erase         := ( lErase.checked )      ;
  84.       modify        := ( lModify.checked )     ;
  85.       filescan      := ( lFilescan.checked )   ;
  86.       accessControl := ( lAccessControl.checked ) ;
  87.     end;
  88.     {remove old trustee if editing}
  89.     if (not creating) then
  90.       deleteTrusteeRight(getServerHandle(oldServer),
  91.                          cUserID,
  92.                          oldVolName,
  93.                          oldPath) ;
  94.     {create trustee}
  95.     if modifyTrusteeRights(nServer,
  96.                            cUserID,
  97.                            volName.text,
  98.                            pathName.text,
  99.                            rightsList) then
  100.       execute := true ;
  101.   end;
  102.  
  103.  
  104. end.
  105.